home *** CD-ROM | disk | FTP | other *** search
/ Mission to McDonaldLand / Mission To McDonaldLand.iso / crystal.dxr / 00080_Script_80 < prev    next >
Text File  |  1998-10-27  |  439b  |  13 lines
  1. on mouseDown
  2.   global myturn
  3.   global dice
  4.   if myturn <> 0 then abort
  5.   set myturn = 1
  6.   set dice = random (6)
  7.   if dice = 1 then set the member of sprite 5 = "1"
  8.   if dice = 2 then set the member of sprite 5 = "2"
  9.   if dice = 3 then set the member of sprite 5 = "3"
  10.   if dice = 4 then set the member of sprite 5 = "4"
  11.   if dice = 5 then set the member of sprite 5 = "5"
  12.   if dice = 6 then set the member of sprite 5 = "6"
  13. end